Opened by Gast at 2008-06-03 18:50
Guten Tag,
ich selbst habe noch nie mit Perl gearbeitet, muß aber eine Website aktualisieren, die z.T. mit Perl erstellt wurde. Leider verstehe ich den Code fast gar nicht.
Es handelt sich konkret um eine News-Seite auf der die Nachrichten nach Datum sortiert werden. Im Moment funktioniert das auch, allerdings wird nur nach Monaten sortiert und die Jahreszahl dabei nicht beachtet.
Hier der Code:
Wie könnte dies so erweitert werden, dass die exakte Sortierung (mit einer vierstelligen Jahreszahl) gelingt.
Für jeden Hinweis sehr dankbar!
MfG Lars
ich selbst habe noch nie mit Perl gearbeitet, muß aber eine Website aktualisieren, die z.T. mit Perl erstellt wurde. Leider verstehe ich den Code fast gar nicht.
Es handelt sich konkret um eine News-Seite auf der die Nachrichten nach Datum sortiert werden. Im Moment funktioniert das auch, allerdings wird nur nach Monaten sortiert und die Jahreszahl dabei nicht beachtet.
Hier der Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
@Keys = sort_keys(@Keys);
foreach my $key (@Keys) {
open FILE, "$DIR/$key" or die "Can't open $DIR/$key: $!\n";
$Text .= "<h4>$DATA{$key}{subject}</h4>\n";
$Text .= "<b>$DATA{$key}{von}</b>\n";
$DATA{$key}{bis} and ($Text .= " <b>$DATA{$key}{bis}</b>\n");
$Text .= '<p>';
while (<FILE>) {
$Text .= $_;
}
($DATA{$key}{link}) and
($Text .= "<br><br><b><a href=\"$DATA{$key}{link}\">... weiter lesen</a></b>");
$Text .= "</p>\n<hr size=\"1\" width=\"80%\">\n";
}
$$CONFIG{actdata} = $Text;
my $T = Template->new({
INCLUDE_PATH => $$CONFIG{templatedir},
POST_CHOMP => 1,
});
print "Content-Type: text/html; charset=$$CONFIG{charset}
";
$T->process('aktuell.html', $CONFIG) || die $T->error();
# Keys nach Datum (von) sortieren:
sub sort_keys {
my (%sort, $sdate, @tmp);
my $i = 0;
foreach my $key (@_) {
$i++;
@tmp = split /\./, $DATA{$key}{von};
$sdate = "$tmp[-2]$tmp[-1]$tmp[0]";
$sort{"$sdate$i"} = $key;
}
@sort{sort keys %sort};
}
Wie könnte dies so erweitert werden, dass die exakte Sortierung (mit einer vierstelligen Jahreszahl) gelingt.
Für jeden Hinweis sehr dankbar!
MfG Lars